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8004 ‘ SUBROUTINE DUP11 (Lun ,parcsr rxcsr,rxdbuf,txcsr,txdbuf) | 8 H 
o008 c Version: *v04-000' 8 : 
0006 “eager tear + peepee ak ciate ri enor efoto | 8 ; 
7 « 
C* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY + | 033 
C* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. . 03° 
9003 Cs ALL RIGHTS RESERVED. . O34 
® 
0011 C* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED ’ 034 
9018 C* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* O34 
51 C* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * | 34 
0014 C* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 034 
0015 C* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 034 
9016 Ce TRANSFERRED. e 034 
® 
0018 C®* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 034 
0019  C* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 034 
9020 Ce CORPORATION. e 034 
te | 
O0ee C* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 035 
002 C* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 035 
0024 Ce e 035 
0025 Ce * 035 
0026 COR e ee eee AAAARAERAAAAAAAAAAAAAAAAAAAAAAAEAEKAARARA AAA AARAAREAES 035 
0027 +~¢ 035 
0028 C 035 
Bt A ple Rena anita See gaat bekeaeae ee: 
or: aron Reynolds t te: 8- - 
0031 C u y reation date ept C36 
0032 C 036 
b03e : Functional d ipti B36 
unctiona escr nm: 
3 an This module d za ve Dup11 regi I led 036 
s ule decodes e register contents. It i l 
0037 C by the DUP3271 module. aw . A syns < Serene | 036 
ist) é Modified b | $3 
e 4 
0040 «= «¢ 4 036 
0041 C v03-002 SARO112 Sharon A. Reynolds, 23-Jun-1983 037 
0048 C Changed the carriage control in the ‘format’ statements 03? 
Obes c for use with ERF. Oe 
5 C v03-001 BP0001 Brian Porter, 20-AUG-1982 03) 
0046 C Minor edit. i 
004 (ee 037 
0048 foo 037 
0049 93) 
0050 37 
0051 3s 
i or , ; 
itr yte un rf 
0055 Integer*4 addrs | 38 
i Integer*4 char 
5 Integer*4 field 
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3.4 DUF 
-Sep-1 DISKSVMSMASTER: LERF. 5 3 eapurt1. FOR; 1 
0058 Integer*4 tem Q3e 
9 integers4 exeer 8 e 
060 Integer*4 rxdbuf 
0061 Integer*4 txcsr 5 
006 Integer®4 txdbuf S 
006 Integer 4 parcsr S 
0064 Integer*4 compress( 035 
0065 Integer*4 compress4 | 8 : 
9067 logicai*! diagnostic_mode | 8 ; 
9 Character*2 protocol (0:1) 8 S 
0070 Character! orer_mode (0:1) | 5 
0071 Character®1 rxcsr -}(9: 9? 04¢ 
007 charecters¢s rxcsr_2(3:8) 04¢ 
007 Character*24 rxcsr_3(10:11) 04¢ 
0074 Character*18 rxcsr_4(14:15) 04( 
0075 Character*26 = rxdbu¥_1(8:10) 04¢ 
0076 Character*19 rxdbut 912712) 04( 
0077 Charactere17 = rxdbuf-3(14:15) 046 
0078 CharactertS txcsr_T(4:4) 04¢ 
0079 Character*29  txcsr_2(6:9) 04( 
0080 Character*28 txcsr_3(15:15) 04¢ 
0081 Character*27 txdbut_1(8:10) 041 
008 Character*l2 parcsr_1(9:9) 041 
008 Character*26 dtr_status(0:1) 041 
Character*22 rts_status(0:1) 041 
0085 Character*21 dsr_status(0:1) 041 
0086 Character*21 car_status(0:1) 041 
0087 Character*20 cts_status(0:1) og 
0090 | 041 
0091 C 04¢ 
009 C Define text for bits in the RXCSR register 04< 
gos, Oa; 
< 
0095 Data rxcsr_1(0) /*DATA SET CHANGE Be'/ 04. 
0096 Data rxcsr_2(3) /* SECONDARY TRANSAIT DATAt'/ 
0097 Data rxcsr_2(4) /"RECEIVER ENABLE®*'/ 
0098 Data rxcsr_2(5) /*DATA SET INTERRUPT ery 
0099 Data rxcsr_ (8) /*RECEIVER INTERRUPT ENABLE®*'/ 
00 Data rxcsr_e(7) /*RECEIVER DONE®'/ 
01 Data rxcsr_2(8) /*STRIP SY -¥ CHARACTER*'/ 
4 Data rxcsr_3(10) /*SECONDAR ee cel vee DATAt'/ 
0 Data rxcsr_3(11) 7*RECEIVER. ACTIVE?’ 
04 Data rxcsr_4(14) /*RING*'/ 
05 Data rxcsr_4(15) /*DATA SET CHANGE At'/ 


Define bits for MODEM/LINE STATUS from rxcsr register 


Oona 


Data dtr_status(0) /*DATA TERMINAL READY = OFFe'/ 
Data dtr_status(1) /"DATA TERMINAL READY = ON®'/ 
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puP11 16-Sep-1984 00:21: VAX-11 FORTRAN V3.4-56 Page 3 
Breeen bbe 19:85:59 DIRKSUMSRASTEN- CERF SecJoUP11.FoR;1 2% > 
0115 Data rts_status(0) /*REQUEST TO SEND = OFFe'/ 
8118 Data rts_status(1) /*REQUEST TO SEND = ON®'/ 
0118 Data dsr_status(0) /*DATA SET READY = OFFe'/ 
B38 Data dsr_status(1) /"DATA SET READY = ON®'/ 
4 1 Data car_status(0) /‘CARRIER DETECT = OFFe'/ 
gt ¢ Data car_status(1)  /‘CARRIER DETECT = ON*'/ 
0124 Data cts_status(0) /'CLEAR TO SEND = OFF®'/ 
3 5 Data cts_status(1) /‘CLEAR TO SEND = ON®*'/ 
0157 
0128 C 
at C Define text for bits in the RXDBUF register 
set 
0132 Data rxdbuf_1(8) /"START OF RECEIVED MESSAGE*'/ 
01 Data rxdbuf_1(9) /"END OF RECEIVED MESSAGE®*'/ 
0134 Data bot OHSS /*RECEIVER ABORT*'/ 
0135 Data rxdbuf_2(12) /*RECEIVER CRC ERROR*'/ 
01 Data rxdbuf_3(14) /*RECEIVER OVERRUN®'/ 
at 34 Data rxdbuf_3(15) /*RECEIVER ERROR®'/ 
0139 
0140 C 
0141 C Define text for bits in the TXCSR register 
pieg C 
014 
0144 Data oper _mode(0) /*FULL DUPLEX*®'/ 
0145 Data oper_mode(1) /*HALF DUPLEX*'/ 
0146 Data txcsr_1(4) /*SEND*®'/ 
0147 Data txcsr_ tg) /*TRANSMITTER INTERRUPT ENABLE*'/ 
0148 Data txcsr_2(7) /*TRANSMITTER DONE®'/ 
0149 Data txcsr_2(8) /*DEVICE RESET#'/ 
0150 Data txcsr_2(9) /* TRANSMITTER ACTIVE®'/ 
Bt Data txcsr_3(15) /*TRANSMITTER DATA LATE ERROR*'/ 
0188 
0154 C 
0136 : Define text for bits in the TXDBUF register 
15 
Bi38 Data tudbut_1(8} /"TRANSMIT START OF MESSAGE*'/ 
159 Data txdbuf_1(9) /*END OF TRANSMITTED MESSAGE®'/ 
Bie! Data txdbuf_1(10) /*TRANSMIT ABORT®'/ 
166 
016 C 
Otes : Define text for bits in the PARCSR register 
166 
0167 Data parcsr_1(9) /*CRC INHIBIT#'/ 
168 Data protocol (0) /*BIT ORIENTED PROTOCOL®*'/ 
199 Data protocol(1) /*BYTE ORIENTED PROTOCOL*'/ 
171 
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178 

174 

\t? diagnostic_mode = .false. 

177 : if (LibSextzv(11,2,txcsr) .ne. 0) diagnostic_mode = .true. 

43 : Decode receiver control and status register 

181 

1 ; Call Lp (Lun, A 

1 Write ( un, 20) rx 

; ¢ 20 Format hug 18, TRXCSR', 724,728.4) 

| 
3 if (.mot. diagnostic_mode) then 
+ Call LINCHK (lun, 1) 
189 Write (Lun yn 30) (fe 121,34) 
Bay 30 Format (°" *,140,34 4ai) 
| 
8138 Call LINCHK (Llun,1) 

19 Write (lun yn ,4 ) 
Bi9e 40 Format (' °,147,"MODEM/LINE STATUS‘) 
Hh 3 Field=LIBSEXTZV (1,1.rxcsr) | 
0198 Call LINCHK (Lun,1) 

0199 Write ( un 50) dtr _Status( field) 
osoe 50 Format ti -140,A<CompressC (dtr_status(field))>) 
34 
0304 Field=LIBSEXTZV (2,1,rxcsr) 
0205 Call LINCHK (Lun,1) | 
OSoe Write ( Lun,60) rts _Status(field) 
34 60 Format (* *,140,A<CompressC (rts_status(field))>) 
338 
° 19 Field=LIBSEXTZV (9,1.rxcsr) 

1 Call LINCHK (Lun,1) 

1 Write (lun in, 70) dsr_ status(field) 

\ 70 Format (* ',140,A<CompressC (dsr_status(field))>) 

1 | 
G "7 Field=LIBSEXTZV (12,1.rxcsr) | 
o 19 Call ity (lun,1) 

0 Write ( Lun, 80) car_status(field) 
0 80 Format (* *,140,A<CompressC (car_status(field))>) 

4 Field=LIBSEXTZV (13,1,rxcsr) | 

$ Call LENCE (lun,1) 

Write ( (Lun, 90) cts_ status(field) 
28 90 Format (" *,140,A<CompressC( (cts_status(field))>) 
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¢ 100 Format (* ',140,34a15 

: Call OUTPUT (Lun rxcsr.rxcsr_1,0,0,0,'0") 
Call OUTPUT (Lun rxcsr.rxcsr_2,3,3,8,'0') 
Call OUTPUT (lun rxcsr,rxcsr_3,10,10,11,'0") 


Call OUTPUT (Lun rxcsr rxcsr_4,14,14,15,'0") 
endif 


pepelojelojlolololelolololololo) 


Decode receiver data buffer register 


Oona 
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Call LINCHK (Lun,1) 
Write “hyn, tt? rxdbuf 
110 Format ("' *, 78, RXDBUF',124,78.4) 
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if (.mot. diagnostic_mode) then 
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Field=LiBSEXTZV(0,8,rxdbuf) 


Call LINCHK (Lun,1) 

Write (lun,120) field 

Format (* °,140,"RECEIVER DATA BUFFER = ', 
1 I<compress4 (field)>,'.*) 


Call OUTPUT (Lun,rxdbuf ,rxdbuf_1,8,8,10,'0') 


eee eo lololofolololololelelolq~) 


MMMITINMIPSPN 


02! 


MrMorororororoerys 


FARIS 


Call OUTPUT (Lun, rxdbuf, rxdbuf_3,14,14,15,'0") 
endif 


Decode tranmitter control and status register 
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get tyne, tyre 
rite xcsr 
130 Format (eee FKESR® ,126,28.4) 


if (.not. diagnostic_mode) then 
Field=LIBSEXTZV(3,1,txcsr) 
Call LINCHK (Lun,1) 
Write (Lum, 140) oper mode( field) 

140 Format (* *,140,°OPERATION MODE = ', 
1 A<compress( (oper_mode(field))>) 


Call OUTPUT (Lun,txcsr,txcsr_1,4,4,4,'0") 
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Call OUTPUT (Lun, rxdbuf,rxdbuf_2,12,12,12,'0") 
| 
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Call OUTPUT (Lun,txcsr,txcsr_2,6,6,9,'0") 


Call OUTPUT (Lun, txcsr,txcsr_3,15,15,15,'0") 
else 


Call LINCHK (Lun,1) 
Write (L 


} 
Format (* ', 140, "DIAGNOSTIC MODE") 
endif 


Decode transmitter data buffer register 


Call LINCHK ( m, 1) 

Write (Lun, 160) txdbut 

Format (° °,T TXDBUF®, T24,28.4) 
if (.not. diagnostic_mode) then 
Field=LIBSEXTZ2V(0,8,txdbuf) 

Call ee shun.) of 


Write ( tyn, 179 
Format (' *,140 TRANSMITTER DATA BUFFER = ', 


1 1<compress4 (field)>,’ ‘ 
Call OUTPUT (Lun, txdbuf,txdbuf_1,8,8,10,'0") 
endif 


Decode and output PARCSR register contents 


Call LINCHK (Lun, oe 

Write (Lun, 19 ) parc 

Format (' ARCER® -T24 78.4,/, 

1 140,*#e LOABED WITH “ee 

if (.not. diagnostic_mode) then 

Call OUTPUT (Lun, percsr,parcsr_1,9,9,9,'0") 
Temp=LIBSEXTZV (12,1,parcsr) 
Field=LIBSEXTZV (15,1, parcsr) 

Call LINCHK (Lun,1) 

write Cyn 1 crotecel (field? 

Format (' - A<compress( (protocol(field))> ) 


Call LINCHK (lun,1) 
If (field .eq. 0 .and. temp .eq.0) then 


Write (lun,200) 
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Format (" *,140,"OPERATING AS A PRIMARY STATION’) 
Else if (field .eq. 0 .and. temp .eq. 1) then 


Write (lun, 21 0) 
Format (' °,140,"OPERATING AS A SECONDARY STATION’) 


Addrs=LIBSEXTZV (0,8,parcsr) 

Call g ire (Lun, se 

write (Lun, 220) 9 

Format (' a 40, *SECONDARY STATION ADDRESS = 
1 1<Compress4 (addrs)> 

Else 

Char=LIBSEXTZV (0,8,parcsr) 

Write (lun 5230) ¢ 


Format (' 140, FERPecreD SYNC CHAR = ‘', 
1 1<Compress4 (char)>,' “2 


Endif 
endif 
Return 


END 
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PROGRAM SECTIONS 


2 SLOCAL 
Total Space Allocated 


ENTRY POINTS 
Address Type Name 
0-00000000 DUP11 


VARIABLES 
Address Type Name 


3-90000399 14 


ADDRS 
99 Ll element beet 


& 
AP=000000148 I*4 TXCSR 


ARRAYS 
Address Type Name 
CAR_STATUS 
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Sep-1984 VAX=-11 FORTRAN V3.4-56 P 
ifeSep 1984 00:21:22 YARCLY EORTRAN VB. t=S6 og. Page 
Bytes Attributes 
2 § PIC CON REL LCL He EXE RD NOWRT LONG 
PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
202 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
4639 
Address Type Name 
ae 4 tay AO I*4 CHAR 
“88 Be 1*4 FIELD 
AP-00 b004a L*1 LUN 
AP-000 $90 I*4 RXCSR 
2-00000 Ag I*4 TEMP 
AP-00000018@ I*4 TXDBUF 
Bytes Dimensions 
4 (0:1) 
4 (713 
42 (0:1) 
5 SRE 
$3 (0:1) 
2 (9:9) 
46 (0:1) 
44 (0:1) 
18 1B 
rt (3:8) 
48 (10:11) 
; (14:15) 
3 ig, 
34 (18318) 
5 (4:4) 
"8 (6:9) 
; (15:15) 
1 (8:10) 


DUP 11 ipete Sep-1984 VAX=11 FORTRAN V3.4-56 Page 
ats 7 9: 8}: $§ DISKSVMSMASTER: CERF .SRCJDUP11.FOR; 1 


LABELS 


Address Label Address Label Address Label Address Label Address Label Address Label 
1-00000038 20° 1=0000004E 30° 1=00000058 40° 1-00000071 1=0000007D 60° 1-00000089 70° 
1-00000095 80° 1=000000A1 1=000000AD 100° 1-00000087 110° 1-Q000000CA 120° 1-000000F 130° 
1-00000104 140° 1-00000123 150' 1-0000013A 160° 1-0000014D 170° 1-00000178 180° 1-000001A3 190° 
1-Q00001AF 200° 1-000001D5 210° 1-000001FD 220° 1-0000022A 230° 

FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name Type Name Type Name 
1*4 COMPRESS4 1*4 COMPRESSC I*4 LIBSEXTZV LINCHK OUTPUT 


COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:DUP11/0BJ=0BJ$:DUP11 MSRC$:DUP11 
PRR OR MEME, omy 


COMPILATION STATISTICS 


Run Time: 5.30 seconds 
Elapsed Time: 13.85 seconds 
Page Faults: 201 
Dynamic Memory: 200 
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$0 
88 
00 
$0 
00 
00 
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00 
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